Nuprl Lemma : fpf-sub-val3
11,40
postcript
pdf
A
:Type,
B
,
C
:(
A
Type),
eq
:EqDecider(
A
),
f
:
a
:
A
fp
B
(
a
),
g
:
a
:
A
fp
C
(
a
),
x
:
A
,
P
:(
a
:
A
B
(
a
)
),
Q
:(
a
:
A
C
(
a
)
).
(
x
:
A
. (
x
dom(
g
))
(
x
dom(
f
))
((
C
(
x
)
r
B
(
x
)) c
(
P
(
x
,
g
(
x
))
Q
(
x
,
g
(
x
)))))
{
g
f
(
z
!=
f
(
x
)
P
(
y
,
z
))
(
z
!=
g
(
x
)
Q
(
y
,
z
))}
latex
Definitions
x
:
A
.
B
(
x
)
,
x
(
s
)
,
,
P
Q
,
A
c
B
,
x
(
s1
,
s2
)
,
{
T
}
,
f
g
,
z
!=
f
(
x
)
P
(
a
;
z
)
,
t
T
,
x
.
t
(
x
)
Lemmas
assert
wf
,
fpf-dom
wf
,
fpf-trivial-subtype-top
,
fpf-ap
wf
,
fpf
wf
,
deq
wf
origin